COMMENT ⊗   VALID 00009 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.SBTTL	*STORE* PROGRAM STORAGE FILE, 5-AUG-75
C00004 00003	BUFFER CREATION MACROS
C00005 00004	PROGRAM BUFFERS & STORAGE AREA
C00012 00005	COMMON STORAGE
C00017 00006	DECTAPE PARAMETER STORAGE
C00020 00007	TELETYPE BUFFERS
C00023 00008	CONSOLE PARAMETER STORAGE
C00025 00009	MISCELLANEOUS STORAGE
C00028 ENDMK
C⊗;
.SBTTL	*STORE* PROGRAM STORAGE FILE, 5-AUG-75

.MACRO	INFORM	A,B
.IF P2
.PRINT	\A=B
\
.ENDC
.ENDM


.IF	DF KLDCP
;DECISION TABLES FOR KL10/11 SUBROUTINE PACKAGE

$DTBL0:
$LF:	.BYTE	12
$CR:	.BYTE	15
$BELL:	.BYTE	07
	.BYTE	00
α.EVEN

$DTBL1:	$LFTBL			;LINE FEED FILL TABLE
	$CRTBL			;CARRIAGE RETURN FILL TABLE
	$BELLT			;BELL FILL TABLE

$LFTBL:	.BYTE	1,1
	.BYTE	2,1
	.BYTE	2,4

$CRTBL:	.BYTE	0,0
	.BYTE	9.1
	.BYTE	2,4

$BELLT:	,BYTE	2,2
	.BYTE	22
	.BYTE	2,2

$DT@L:	10000.
	1000&
	100.
↓10.
α	1.
$TBLL:	1.¬
	10.
	100.
↓1000&
	10000.

.ENDC	0↔∪_A	A-→	π 4⊂~¬∪9
∨%~%!%∨∂Iβ∩A9λY8\4∀∩∀wQ⊃∪&AMπ)∪=≤Aπ∨9)β∪≥LAβ→_↓!%∨∂Iβ~A$*bQαdJR⊗JbL4(hQ⊃α~3P%⊃∩≤b&P4Ph)⊃∩dJRQuph)⊃⊃$2→e⊃$~2&PhP4*&t26J5∧b&B⊗∀
1α⊗t!2q⊃$~2&PhP4):L1αAHhQ9`*DH4dMAQ#]∧~H4CP∃h$d]tεCh*λ∃$,hGSjpβ"KHYQ⊂c! ↓GpU1Hh4H⊂j(05∩)yβ⊂&`Pi'iFBεA∩α⊂*c≡NBagi"S ⊗Z	∧D]i∪efP#∪i⊂)j⊂aaFE	⊂∧S@)-~zzH⊃¬+∩$∩w¬←Qi←ZA	←k]I¬arA←α1βOS∞≠,4(hQn@<z(B∧∃Xhd-∩λ~5≤LyiT,uD	T≥)qPRtX_5∀x∃h%,5q∀D∃$_uB$∀~(phP∃i∀L0→hRα"H*T23∃DB$∃XgSj"H*T2k⊃Q Jt→_`L∩∧H$
∀uDB$∀~(skk⊃Q Jt→_`Lt$∧D∀
(qB"∧(~$;kTH$
∀qQ J"H*T3KTDD∃,eWB"$(~$:S'aPPJiiDM≥AQ JtI~5 LXQ⊂hPα+S	~uβ"DHU⊂1gW ∧R$BUF
	.NLIST	ME
.ENDM~∀4∀w¬3Q
A¬+→
$A¬''β∂9≠≥(↓≠βπ∀x4):l
∞J<Jr
V~⊂I∩
R91∩

∩≤4(Jr&&_L⊃↓∩

∩≥!⊃$∩εJ≥hπSλh!∃dLLa→d∩αH(∃∀~DDD∀
(sSj$(~$8h!∀B$∃XgSj"H*T2jDH$
∀qQ JtiI∃≥ Q!∩td~:@LlQQ JtI~5 h$H%$wP∂!∀	⊂U(a"B+Ii∩4u↓→1#"EH3Q∪!QA"B%IS∩4jA3∪paQ@↓Gt∀ShzP3 λ*1QQ**h	H
:∪tP(x(⊂4HX!"Nh9α"`i⊃b⊂'gλ$g$j∩`f$m⊂j 	ON
~∀m')∨%¬∂
A
=$A	)∀d`Aβ⊃	%'LA!∨∪9)%&4∀∩∧∩9¬+
∞$]↓∪β≤f∩∩wa10fl4∀∩]¬U
.∩]M)↓)
$∩w1⊃`fh~∀$Y¬+
\∩]	∪¬∞d∩∩m110fH~∀α]	+
.∩9	∪β∞D∩∩wEBaM@hP%*
,2\%:#	F∩PHIfbbC⊃X$(Jr
V~8I:QE∧"P$%]BbaI h(%:∃*~\%u!EFε H%nbEAIH4PI2
V58%:Qαε⊂$KZbba∪4(¬t∩V~\Jr

EλH%nbEAEXQ!∩t∃XjpJt(6∪H↔;¬EC⊗APPJh*T58∃jD,T⊗!⊂K]	β⊂Q!∩`(U1Ua∃U⊃3H⊗"".k⊗,↓Q@+PJXUb+HH5"!↔v⊗⊗εεC"B%HU1Ua∃Q⊂5ε!".v
β!!+PU(jb+Qλ~b"';⊗⊗ε!"B+H*1Ub%h⊃3⊂+⊃".vβ!!"C"G:t⊃0i_3λ∪	X1λ∪ii⊗(⊂iH04H∧d∀q5
Zλ⊂4HX(
∩λZQ(∃	t	∩3λHs∀H	~h⊗Q*)q1λλ~λ∪∪h_λ∃∩)X*#"AQB+PJXUb)	yQ1∪!⊃.ssHT∃∩3(T⊃S⊂(q"B+H*1Ub$I3⊃∀jY"".d)q⊃⊂j∧H⊂rλXrpu)Q"B+H*1Qb$J∃tPiJα".j	uq4D
Q0uλ~Uλ⊂iz3Uβ!!+PU(jb1⊃*j⊗4α!↔q⊃5I_q(∃~⊃.H¬V/00jEλ∂(J⊂+λε↔4TεA"B+H*1Ub(i∪t∀⊃".k&∃λ∃4hT∀V∧&∃tVε∀⊃S∪j
⊗#"A∃PU1Jq3∀∃λi⊃b"'f$g"H()$g∃"i⊂#∪ cFEαW!*c∃Df(*⊗h"DDNf$g"H()$g∃"i⊂*⊗h"FEαW!*c∃Di,*S$j∧DNc&'h∀,P*g∩jεE∧K!*c+Bb**g∩j∧D]Q aj T"P*g∩jεE∧K!*c+Bi(*g∩j∧D]T(_~⊂∃g$jεB∧W!*Q+DR!∩c&#DB]a)"Peh'dS*⊂#&⊂cFE∧K!*c+Baf%h⊃V→DDNaf'aRP("P⊃#+i*λ)j'i⊂cbFEαW!*c∃Dh"a∩j)DDNaf'aRP)j'T⊂( i∩j,P"S a&"H!$j)CE∧W!∃c+Dh⊂cb#&→D]eS_X⊂⊃⊃ j gH( cV⊃⊂""Q jf*βE∧W!∃c+DaS%b#&→D]eS_X⊂!S'aeP⊃"c jS*εE∧K!*c+BikiXL⊗→DDNh"(⊗LX⊂)kRj!d"TFE∧W⊂*c+DI)kiXL⊗→FEαW!*c∃DR∩)UiεE∧K!*c+BR∩)j∩))V→B]h"(XX⊂)U i*λ%))jλ∧E∧W⊂*c+DI)j'b⊃∧D]Q∀bj&h∩⊃⊂+ T$`a&⊃iFE∧K!*c+BR&h$∪eDD]S`ieVλ P'iλ!⊂!d⊂g#bPλ⊗P:yYr⊂:7H12P1≡z2P⊂Vu19λ~↔Y≠KY[εEαW!*c∃DR&h∩"#∧DNb$`cH#!g⊗λ P'iλ!⊂!d⊂g#bDH∧E∧W⊂*c+DU#g`b∀⊗→∧]T (⊗XL⊂#gP∀j i*λ b")⊃iiFEαW!*c∃Dh#gPb)⊗→α]h!'Qi f@ GO ADDRESS
↓.BUFW	PGOCTL		;@!I∨∂%β4A∂≡A
∨⊂~R∀z04λJr
V~8JN⊗ε%⊂$%nαλEαk⊗∀¬≥$~*B∧HJ$-≥1Q hRi_b∧$d
4LJj hP∃h%,5t
DL@,,#ε1".tλJ, ⊂∃$fbP⊂dπUNTER
	,¬¬+
\∪)&l∩εM1_IfB∩αiEAα$J6∃α∀
N∀4PI0∀∃XjpL]I→T¬_⊃↔4t|e[$-∀t	∀2¬I→T,∀~8R¬<~4¬≤-Dλe∀|Tε∪αpQ!∩d∃XjpL≤I8dd8⊃↔4t|e[$-∀t
tDd
DD(⊂s	xph∃	_rp	FB∧W!*Q+Dj$Sj"`⊗D]`∀EMP CELL FOR TIME BASE E@1¬≠∪≥
5	!∨M∪(~∀$Y¬+
\∪)&l
∩I1_IfB⊗m↓α∞⊗daα~>⊂αBαAi	Aαε$"JεN~α~>I∧*bε5bα∩-	qPRt_d∧$H⊂s	84pC!!+PU(jh⊃∩)XS⊃b!↔sSsE[Q0	'H*#P*⊃d  KL10 TH@
A$J6∃α-2⊗JEβ	AAAααR&∞]_4(∃h%,5t
Dm≤iHpHK9it`%6Q4IT∃∪h
H3∪λλ⊗,⊂sj∧∃∪h
:∪tQ$
⊂31!QKQ3HHh
qλd⊂s∩h~pC"AQKR1Dλ⊃H	$Z30β!!+PU(jb5&_⊂QB!↔sSsE[Q0	'H*#P*⊃f  COJSOL THAT D@∨∨I¬⊗2bαJε:8h(%:∃*~\&%"⊗
NHH%n:|q6j⊗α)r∧LdλE$*	~2∧∃Z;∩¬<~Iα¬$v⊗α¬%(→e≤4Z!PPJh*T58_JD,∀8A⊂K←M
↔~ε≡4π&FT6␈.nDε}∩∞M⊗n<h∃lT≤x=dλ∃⊃(.<}#!!+PU(jb13F
⊂¬gDB]agjS*⊂'cλ'jb(∃j⊂( Pebb)H)bg*βEW!∃c+DbS_"iλBD]agUg*⊂'Q⊂'jj∀*j⊂(⊂aebj∀P)bg∃⊂+dj∩⊂"a)∪iαE∧KαBUFW	EN0PER		;CH∂+≥PA∨AA%≠β9≥(A∃%%∨%LA∨≤A=+)!-!αBε≤Z⊗RLhP%*
,2T&⊗sαB.∧HIf∞≡,rQα≡2α& 5
ZB¬∧_94-¬4
$,≤Y~d,"λZ%∀⎇$λe∀QQ J@PU1JQ13LλZLB"'a`∂UNT GF IH
!PA!βπ-!&AIπ∪YλA∂%)⊂AI%∨%&4⊂∩]¬U
.∪8a≠~$∩w%)π)⊂A!βπ- ∩Mbα2=α∃*~4X∧@⊂⊂i df⊂a&"FB∧W!*Q+Dbg*),DB]i"j∀,P!gUg*⊂#∪βR @A@π↔(αα0≥5∀∃*AαA∧W⊂*c ↔	EHa¬UXd∩mβ		%∃'&A∨_A)⊃∃%≥λαα& 5λZB∧∃Xhd-∃1Q J@PU1J@Dbgλ∩dεD		8ππ+∃∩⊗ 5DλU$DX∧SHZλ∩3J
5λ⊂JXQQ4AQ@∧W!∃c+DbS!!acαDXbroadc@¬ghAa¬GVAGα{;SK|¬Bε6L≤rG~⊃Q J@PU1J@DagjSα10,3	;FIRSPλA∂=%λA∨_@fA
=$A	A∨'∪(↓∪⊂→↓α∩α∧lYYu∃Hβ"B%@!*c+Bbg_"∪,V_Xα]b"f⊂lP ∀ABLE FOR ETH@%≥∃(A	1β3&~(∩]¬+→.∪)≡Da"Xd$∩w)/<A/∨%⊂A#+U
A",
⊃α~⎇⊃αR=↓αFV-*∀4(Jr
V~8J⊗ 4XJ∩c⊂⊃↔5%<βh∃iZQλ∀*X51(	λα`b FOR ETHEBNET @#U#
~(∩U¬+→*∪
$Da"Xd$∩w)/<A/∨%⊂A#+U
A",
⊃α~⎇⊃α~I↓αFV-*∀4(Jr
V~8JF&B≥"M1LKZNRε%*Mα≡2αR=∃λε∩¬DhZ hS1∃d∃,jq∀5∀XX∀ H↔8∀$¬(Z5~∧xd∧∀1r3II3Q`	XH⊃THX(∪1)YtV#!'b+PJXUb1J(10	mαD]`∪IZ@
A∨_A
%∀A≠≠=%2@PQ⊗A/∨I	&A	∃≠!∨%¬%∪→2$~∀∩]	+
.∪→%⊗⊗λ¬C⊂H↔8∀$∀Q4j4⊃qHλi4Tu∧
∪tti_S⊃(λjQ1(λ)∪praQ@∧W!∃c+DhSh)(iBD]`∪Aved requeSt size fo@HAi↑bDAqMKH~∀%t∩V~\L*2&" $%Nα<↔6.Dλλm}≤∧P /d∧@Ee∃CXDA∀[\AQ=ghAC⊃IeKgβ_4):,r∩
↓β8D2αTZ∀mQ%d,@Q⊂c!↓αA≥b∀eb&hλ!'gjλ)j'i⊂cbFEαIF DF BOOASB
	(
¬+→*A¬∨=)¬Y	≠⊂≡R≥P4(∃h%,5tλ$|@u∀p%FA"B%@!*c+H!'gj⊂ π$2
.ENDC


.IF NDF TELAS@λ
∧w-→∪≥∪,A¬∪1λA'I(
&∞*αJ⊗6⎇"∃α~d
≤4(hP% 4*Xe 4⊃∪&_1S⊃aQKR1Haα@
	.@UF@.αα~NNαH∃$
F⊃⊂K]8¬⊂*HαP'cλ!)P*⊃d∧E@)e
A2Lr∀4!∃d∃,hpλλju∀∃
%""'h ∂INTAR TLεA)a(Aβ(αα~NRM4(∃h%,5tλe≥¬~
"cλα".j85Q1∧
IJDICATE USE OF FS DL11E
	.BUFW FSCHCA1		;FS CLOAK BEQP≥!αε∩%∩⊗NLhP%*
,2P~∧j:%$LUF0HK8¬∩)X(⊃rλYβ⊂#)H!b'aRP)"hUbib∀d'jf⊃⊂!"P⊃'c"FB↔"g"⊂FEεE∞βBP TABLE; INCT, ADR, CNT
~∀9∪A	_A¬!	¬'∧~∀$Y¬+
\∩I¬(0xA:⊂QMx%\∩AαR∩2∀Q!∩`(U1Ua∀⊂Pp!⊃.pT∧λqsU	→U1(λ_⊃∀Q*:c"B%hU1Ua∀⊂U∩*1".pJ∧∃⊃3*↓ ¬↔"S ∧C

$ILDCLR=$ BUF
;COMMON STORAGE

	.BUFW	$SWMOF		;MONITOR LOP∞A∨I	β$AM/∪)π!&~∀$Y¬+
\∪≠∨≥
)_∩∩l`p⊗N$
:∩εdz:∃1αiEv6|r&R≡⊂h(%:∃*~\&$*0∃≥xA⊂K]λJαk∧
5<MH9α∧$Z	u≤MDλddqQ Jt*Xe8MHYd≤d1⊃∪M∧J¬Sαλ9D|≤4λddqQ Jt*Xe8Mλ9T$4Hq⊂K]λ)t=∀→P∧≤|YX∀t"λiD8Q!∩t∃XjpM∧9XDt⊂⊃↔5¬∀xz$jλ9T"∧it¬¬∀→jB∧4H_phP∃h%,5q∀DM$X(⊂HK9~D-∀~I∀|R
(T<M:HU⊂h!∃d∃,jq∩$,hH5 H↔8Ttα	xb¬∧~:2¬∀X	u∃"λ9u,uAQ Jt*Xe8JHYu∧≥A⊃∪\,hD∧|2
λ∃≥~λ9u,uAQ Jt*Xe8JHZ%∃∧1⊃∪\-*)u∩¬λ1PPJh*T58∀HU∃%IA⊂K]IzDbλZ%∀⎇*4∧$-HX5$,AQ Jt*Xe8JHZ$4dq⊃∪\-*)u∩∧iH∀8h!∃d∃,jq∩%∧~:0HK8λ∃≥~λ9u,uAQ Jt*Xe8JH9U$q⊃∪\≤yYT|r
H∀8h!Q#\$X:D
∧Uz%ββDλ∀t"	It$→hr∧∃Xhd-∃1Q hP∃h%,5q_E4∃XeC∪+ea∪\$Zi∀≤*λ*T44Z!PU4jXD
#XJd∃,aQ hP∃h%,5q_UE$(eC⊂H↔8∃≤≤→∀∧-EHYe≤Lyd∧∃,hhU⊂h!∃d∃,jq∀tX(bc_⊃↔4
≤9→∩∧t→XR∧∃Xhd-⊂Q!∩t∃XjpL$~*5# Q!∩t∃XjpL$~*5#_Q!∩t∃XjpL$~*5#⊂Q!∩t∃XjpL$~*5#λQ!∩t∃XjpL$~*5#⊃↔5¬≤ZXDz∧I~$,≥Iz%J∧9ye4-*9∀|r
:D⎇∀_xPhP∃h%,5q_E$-
A⊂K](_C+αλ[¬ h!∃d∃,jq∀%$[
E~c1↔5,uλ_4\,DλUE"¬λ∃≤≤→∃⊂hPQ!∩t∃XjpL%IId=$↓⊃∪\$X:D
∧TλdLDT	D,tzIhP∃h%,5q_E%≥J*@HK8HT≥$~λR∧4→HR¬≥H~%"∧)It≤XQ!∩t∃XjpL%h_E⊂H↔8D-4_8R∧$~H∩∧HJ$-≥4
∧|LjHU⊂h!∃d∃,jq∀%49j@HK8HU4L8T∧∃MHT∧≤⎇Yj@hP∃h%,5q_E4$~(`HK8HU4L8T∧$M(X5$⎇+∀∧4d_qPPJh*T58_8D%!⊃∪\≤z(R∧%YZα∧∃Xhd-∩
	tLuHZ hP∃h%,5q_DLiHpHK4(DLYyb∩∧zλU∀
I→tr∧iH∀8h!∃d∃,jq∃∃∧Yx`HK8Yd"lxeT4LHT∧4d_qPPJh*T58~z%$∀→1C_K8*∧d]Z∧α2¬*
u∀4D
$-¬Z)b∧LhiphP∃h%,5q∀E∃∧→hdzC!↔4%4H~D
¬	y∀u$Z*0hP∃h%,5q→dm(_Bc_↔:$#V∧∧tXUd-EAQ hRi_b∧$d
%∧
8!PPJh*T58~*∧4$h!⊂K\i→D*∧I~$,≥Iz%J∧HYd=$∧	∀r∧)It]1Q Jt*Xe8M*λd%%1⊃∪\4→HR∧$~(T≥∧z+∩¬%(_4Zαd
4,≥Iz hP∃h%,5q~%∧∀H;⊂HK8i∀d*λI∃∀8Iu∃Jλ;∀dLhHU∩∧jYT∀-!Q Jt*Xe8M*	∃Dt!⊃∪LLhHUB∧i→D*∧HYd=$∧	∀r∧)It≤]1Q Jt*Xe8M*	∃E%1⊃∪\LhHUB∧i→D*¬J(∀≤Z∧d¬≤,:Iu⊂h!∃d∃,jq∃∃∧≠λ5HH↔9∀t∧[∧4LHT∧
LI→d$-$	e,l(Z hP∃h%,5q~%∧Mλ8 HK9→d$-αλ⊃I→⊃(⊂jZTQ3JD⊂S∪h9c"B%HU1Ua~T∪⊂*:α".i→Q⊃6∧λR3⊃$	⊂4u∧λS∪pi1"C"A∃PU1Jq0r3	hα)∧DNβCUBREJT CYLANDER
	,BUFW	PRKSCP		;CP%%∃→(A)Iβπε@_A'πQ∨$
∀$Y¬+
\∪∨

M(∩∩mπ ⊗J∀*:Qα|2~N⊗ h($(Jr
V~8J
V~"H$%\∩V~~-⊃αε∩%∩⊗NLhP%*
,2T&
,2N&hHI`≤∃Xhd-∩
9∃TλQ!∩d∃XjpM=(H4e ⊃↔5∀,_Au :R5⊃$
stQ∧λsu3JA C"A∃PU1Jq1R3λJpK⊃HH4r6E6B.qI→⊃(⊃λZppR*
∪tC!%Q3Qλ1"@↓Gq⊃0jH4⊃(
λ4P3(Z⊃0@⊂∀h∧ORAGE¬

λ	.BUFW	RET¬π
λ$∩w%Y%'
↓π⊂≡Vu 4(∃h%,5q→∀u%:q⊂K\α3R*D∀qr*Hpβ"A∃PU1JQ)⊂rj6,""'h"(⊗LXP!$SαARY AHECKSQM
	(
¬+→*∪→)5 ∩∩w1_∞ε⊃¬"⊗ -↓Q JT*Xe8LH(0HK9It"λ+∃$
λ9u,UAQ JT*Xe(MJ+∀≥∀B"'8⊃0uλ~⊃(∃
+(⊂sjYUβ"A∃PU1JQ1∃⊗λ→αb∧DNb"aj⊂h"P,⊃ ¬R COHβ≥⊂~∀%t∩V~\M:∞Nε0H%n↑⎇∩⊃α∞⎇*:Qα≤
R∀∀PI0∀∃XjpL≤~8∃ H↔85-∃(Ye"∧_HE∀4th
85Q#!!+PU(jb1∃λ	∩b"'8⊃0uλ~⊃(⊂IIpr`	@*fa"T∧EεE∞c&'h∀,P  T fbj⊃i⊂)j∪i cbCE↔$cλ"#⊂)⊗ iaεB∧W!*Q+DRα∩j)PDB]c&'T(,P⊃	)(λITS" COUNTER
∩]	+
.∪I1'β	H∩∩g
1∨!!2↓'π)=$Aβ	⊃%β'ε4∀∩]¬U
.∪%a)β	$$∩w
→=!!2AQ%βπ⊗ααε∩∩∀*NL4PI2
V58&JB∀b.@$KZ~2>¬αeα
dzε-↓~αR⊗6h(%:∃*~\&∃BP≤≤β1α!↔qS∪j
⊗(∃izRr3Ht⊂ss)X3Qβ!!+PU(jb4Vλ→αb∧DNc&'h∀,P!gSf`g"βEW!∃c+Di⊗!&%DB]c&'T(,P!∪'ae@∪αUMBER
.EN@	ε~(~∀g→=βλA↓¬%β≠Q$A'Q≠%β∂∀~∀4PI0∀∃XjpLdH~D(Q!∩d∃XjpLdH~D
c4¬βA↔q∪p(D⊃⊂5λ⊃ B+H*1PDS" b)αDYf'Pb⊂ b⊃)"aiCE	.BUFW	LDCN@($∩w	∨¬λA/∨IλAπ∨U→(~∀$Y¬+
\∪⊃	∨
)$KZ2>ε ∧∧`8u⊂3∧λStS(~λ⊃Sλ_c"B%HU1Ua→⊃⊂sJIα".iIp1⊂⊂βH∂
%∩0≤@λ⊂gT εE∧KαBUFW	HDOVR@λ∩∩m→∨βλαα≤@pπ ∀RLπ⊂⊃α⎇2⊗JJL"∀4!∃d¬,h¬b)H⊗PS	1 .s	@`b⊂_L⊂-"i∪β BLO@π⊗A
1β∞~∀$X

V58&NJ$228⊃↔5≤,Hd¬≥⊂4U∧λS⊂1aQ@∧W!∃c+Db⊃k&!DB]b"k∩abP&∩dεE CLπ ⊗:αAPBtI_b∧⊃H∪)Yβ iaβE	.BUFW	AR@)%d∩∩gβ
(b`AI ∩JJαε =Yj@hPα+PJXUb2	J∀∪U↓⊃,p0jF,λ∩λYα(⊂(∀$g" FLAG
λ∧_w)1 ∩f∧)α
V42⊗JLhP4(∃h%,5q∀DL@T⊂
)αDXINPUT PMIN@)∃%&~∀$X

V58%∩→j¬$_Q!∩`(U1PA∀⊂∧g!∃c⊗_@42.	;IL¬!+ ∧∧∃,hhU⊂@ B+H
1PDI'j`∀P@ε∩%\zV@%λ¬5∧
⊂πdg∃ i)FB∧W!*Q+DR'Uh∧P@(4⊂∩]¬U
.∩I=+ ∩Bα↓⊂K\zZE¬-D
¬∀Lh@λ
	tr5	→β`∞
	(
¬+→∩I∨U)¬XDhd\∩m_∞@-J
U"∧*Xd44C"AQ@∧W!∃c+DR∃'( ∀R		0⊗@	↓α&:α
U"¬	y∀e$X∧TaQ@∧W!∃c+DR∃'( ∀C
∩]	+
∧∩⊃)≥¬+_Xbhdαp%mEαα& 5λ¬5∧λU1QHZA"B%@!*c+BR*'!R)⊗→DNβH	β'PAπ⊃βHA)3!∃λ@A
=$A)8R~(JrαV~αq∃$,hJEHH↔6∪αα*HT`(p⊂@⊃λ#& cCE
	,¬¬+
\∩I))e∪∀4
	.BUFW	COMNBR		;COMMUNICATION NUMBER
	.BUFB	COUTBF,142.	;COMMUNICATIONS OUTPUT BUFFER
	.BUFW	COUTSP,2	;OUTPUT CONTROL CHARACTERS
	.BUFB	CINBF,142.	;COMMUNICATIONS INPUT BUFFER
	.BUFW	CINSP,2		;INPUT CONTROL CHARACTERS
.ENDC
	.BUFW	$PRNTH		;PRINT HEAD POSITION
	.BUFW	$PGWID		;PAGE WIDTH
	.BUFW	$TPLIN		;NUMBER OF LINES ON A PAGE
	.BUFW	$TPLIT		;LINES TALLY
	.BUFW	$XOFLG		;XOFF FLAG, -1 = NO PRINT
	.BUFW	CTRLOF		;CONTROL O FLAG
	.BUFW	$EOLFLG		;END OF LINE FLAG
	.BUFW	$TTLKF		;TTLOOK INPUT CHECKS INHIBIT
	.BUFW	TILNWF		;TTY INPUT WAIT FLAG
	.BUFW	$FORCE		;FORCE PRINTOUT FLAG
	.BUFW	$TTYFL		;TTY FILL PARAMETER
	.BUFW	$0FLG		;ZERO FILL FLAG
	.BUFW	$NEG		;NEGATE NUMBER INPUT FLAG
	.BUFW	$SVH
	.BUFW	$SVM

	.BUFW	$TICHR		;TTY DRIVER INPUT CHAR
	.BUFW	$TOAHR		;PTY DRIVER OUTPUT CHAR

	.BUFW	DDTFLG		;@!⊃ Zb`↓	↓(A%→!+(↓≠∨	
↓
→β∞4∀_wπ∨9'↔→
↓!β%β5!$↓'!∨%¬∂
~∀4⊂∩]¬U
.∩I-≠∃'$∩w'βYλAπQβπεAA_∞&:$*H$λJr
V~αq∀dβ⊃Sλq".p)Iλ⊂∀I→β*⊂#∪ cFEαTεBUFTε∪%!Q
→∞∩$p∞∞yYT@Qλ∀HZ⊃05∧λS⊂1aQ@∧W!∃c+Dk⊃i$c,BDY`⊂ROGRAM VE@%%
2A
1β∞~∀$X

V58% 4X_E⊂H↔8UDY→d*β⊗⊂λλ_⊃∀Q*:c"B%@!*c+BR"a`Q)		;EXAMIL¬∃α~jJε5∧
∩%(Z5_h!∃d¬,h¬b$Hαb b∀∧@]bV fdg⊃P"⊗i⊂d¬ ADDRE@'L~∀%t∩V~\J"ε∩HhP% 4*Xe 1)⊂1
& εE∧KαBUFW	(
	
I	αXf4⊂λ%:∃*~\%t"Bbε ¬C⊂@ ¬εEαTεBUFTε∪_bAβ	$XH∩w2|
⊃↓Eααε∩∩∀*NL4PI0∀∃XjpJ%HYUβαβc!∧¬∀∩9
V~αq∃$3P	*Sα	↓;TEHA∃*0∀t→hr∧∀H_phPα+PJXUb3)@dεMODE	∩wQ⊂→αlz0∀MIz"∧lxHR∧∀H_phPα+PJXUb3*J⊗3qA⊃,¬fgSαITOR TTY Lπ+)!U(A&p∧¬¬∀xz$-≥1Q J@PU1J@DR**⊗h∧@∪~$∩w))dA)&l*0≥5λ⊂i@h¬N@(4⊂λ%:∃*~]α\
N&4HI`≤\~9∀j¬JZ$`(αb⊂'Sα
∀~(∩P~
,2P_JJλ5≤
aQ J@PU1J@DR()T`kεEαTεBUFTε∩I'A'β,~(∩P~
,2P_JJ 
*85C"A∃β!*c∃β	$RQ'β,~(∩P~
,2P_JJ j85C"A∃β!*c∃β	$RI'β,~(∩P~
,2P_JJ *85C"A∃β!*c∃β	$RA'β,~(_w6M~≤,IH∀`(αgjiH)j'i⊂cbFEβE	.BUFW	$EHβ	H∩∩`.,jQαε$"J-8∧h¬¬lJ#!∧¬
	.@¬+
8I∩N↑$~ $↔:5 95⊂rλZc"B%@!*c+BR∩)k∀hεE∧KαBUFW	P	≠@~∀%t∩V~\LJ~&2,0$%@9→d$M(X5"∧i→D*∧iH∀8hαB+H*c ↔	IFINP		0↔∪9	∪%
(A'$zJε≡*αB>→jD-⊂β"B%@!*c+Be#$f⊃c		;DOUBLE @∪≥⊃∪%πPA~&d)α4H_phPα+PJXUb2Hi3Pλ∧B]b'jPαLE IL¬	&∀*≥λ⊂	j∪βRAGE P@∨∪9)⊗HhP4(∃h%,5q~¬∀tU3A⊃,¬h)∪βGRAM RUNNIH
∞A→→β∞~(~∀%t∩V~\Lj⊗ -λX`HKαpλ T$j,P⊃& cFBαλ
∀∩9
V~αq∩`)⊂qSλq ∧]`S& ∂W↓⊃β→(αα≤@pπ ∀IL¬+
A→→β∞~(∩P~
,2P_Jiλ4%!⊃∪@9⊂3∃∧λpπg*∩dεUE ADDRESS

λ∧∩]¬U
.∪	⊃))5λH%n∩%!α6>$)αR→XT`:αj⊂!SβP≥%_4(∃h%,5q_D%%IPAQ@εE∧KαBUFW	$ECMD,3		8π	)
H`Aπ∨5≠β≥λααN@$βtP(x εE∧KαBUFW	$SAV20 _f$p∞B∩αiEAαα8∃ (αP⊂∩@A')∨Iβ∂
~(∩P~
,2P~¬h∧PHi⊃b"'hεE@%	_∞N∃¬"fB⊗⎇*Qαxd∧-D→Y∀`(αWb"T'idjλ ¬RRORS FLAG

λ∧⊂∀!Q#@9pε_@0 SUBRLπ ⊗RLr∃αNαIu∀xQP@!αE∧W⊂αUF@.%0
-)z2c_⊃↔5≤@u0	!QP ∂F 30AT*J>LhP% 4*Xe 15S0(H5a↔uS0$∧β⊂ ⊂C TEMP
∩]	+
.∪a1∩ε H%n∩2αP≥∀~HR¬$YZhPα+PJXUb3)X⊂5⊗D@	;WTπβ	$ααR,X↓P@!+PU(jb5tHX1⊗+ε1,¬R+PβRAM↓)⊗6α↓P@!+PU(jb4r(yβ&εEαTεBUFTε∩I¬U
%εXX∩vI%
%β~AQ⊂⊗@hP% 4*Xe 14r1i@&→εEαTεBUFTε∪'∪≥→_f~(∩P~
,2P_LHJ$@+b!↔i⊃∀H→α`b5 ¬M@ 4⊂λ%:∃*~\&∀"JRX∧ε!,¬R)⊃) f@ T@≠h ⊂Jh*T58∀HE∀UF`hPα+PJXUb)λHα)&iCE	.BUFW	$SP		βP∩∩`-$∩VJNα@
$X∧β!∧W!*Q+Def⊂βH	.α!⊂K\αs&∧⊂s∪heP&'Qda`f∪,P ∩UL¬≥∪≥≤A
→β≤~∀%t∩V~\M"⊗ 4H~Bc_↔:∧%αβ(λ@0 IN@!U(A	βQαA/∨Iλ⊂∀!∃d*1PDU g aL⊗→∧]T ∧P-D`Aβε@Aβ		I'&~(∩P~
,2P_L4∧ _⊂βP∞@1_H%nB%↓5EA∧~2>∞X∧¬ 825⊂⊂βH∂+≥P~∀%t∩V~\L~2.∞u!1L%]α∩AT∧ _λ!`OCK COUL¬(~∀9∪A	_A~N≤
NλQ!∩`(U1Ua_QP	"QD@	;NUH¬HA∨A	→∨π↔LA∨A→%⊗∃¬~R>J:∃α∞αZ%∀3P
&⊗P# ∩EE
∀∩9
V~αq∃ :αibbαDYg*Sa"`∩LπA<zJ%4	t2∧h∧Q(T∀p
'T cbP∩dε @+M
~(Jr∃,h¬b)@ πE@)L∩∩`.u*6
⊗α `8H⊂p)I∀h∪i@⊂∩)&⊂βB~∀$X

V58& 4y~d-_⊃↔4`*30Q*$⊂πc⊂∀h¬CCESSF@+0Aπβ→1&A>p∧α%∃_8 hRhYd$≠4λD2∧h∧ph~pC"AQKR2(d⊃⊃HλZ∃∀Q)Eα+PJXUb)
H1∀t↓↔u⊃3Dλ1⊃∀HZth∀jλ0q(λitH⊃+λ323HZh⊂3HD⊃⊃4	@i`j)CE↔$dQ⊂"#⊂∀`df+∀⊗∧W!∃c+DiUh""hα]ibjλ* ∂ -1 @∪bbA≤B0≥,